home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir25
/
cbupda01.zip
/
UPDT4WIN.INF
< prev
Wrap
INI File
|
1993-12-07
|
17KB
|
591 lines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; PARTIAL INSTALL SCRIPT (UPDATE) FOR MICRO COOKBOOK 4.0c
;; CREATED 10-28-93
;; PINPOINT PUBLISHING
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DefineVariables
Logical [TraceMode] := Y
Text [ProductName] := Micro Cookbook 4.0c (Update)
Directory [DefaultInstallationDirectory] := \COOK4
Text [ModifyMode] := UNDECIDED
Number [MinimumFilesSetting] := 40
Directory [ReadmeFileName] := README.TXT
Logical [InquireAboutSystemFileLocation] := Y
Logical [AskBeforeFileReplacement] := Y
Logical [AddInstallDirectoryToPath] := N
Text [MinimumOSVersion] := 3.3 ;; Minimum OS Version required to work with DR DOS 6
Number [MinimumSystemMemoryRequiredPresent] := 635
Number [MinimumExtendedMemoryRequiredPresent] := 1000
Logical [AllowCGA] := N
Logical [AllowMDA] := N
Logical [Allow808x] := N
Logical [Allow80286] := N
Logical [MathCoprocessorRecommended] := N
Text [NetWorkInstallation] := AllowNetwork
Logical [UseShadows] := Y
Text [MainBorder] := NONE
Text [PopupBorder] := SINGLE
Text [TopLine] := " INSTALLING [ProductName] "
Text [PopupColors] := WhiteOnCyan
Text [AttentionColors] := WhiteOnRed
Text [SpecialPopupColors] := WhiteOnBrown
Text [ExtractionOptions] := ShowJustOne ;; See GetQuedFiles
Logical [Installed] := N
Text [DisplayAdapterSummary] := Y
Text [CPUTypeSummary] := Y
Text [NetworkActive] := N
Text [MathCoprocessorStatus] := N
Text [InstallationDriveSummary] := Y
Text [OSVersionSummary] := Y
Text [SystemMemorySummary] := Y
Text [ExtendedMemorySummary] := Y
Logical [InsufficientSystem] := N
Logical [CompatibilityNoticeGiven] := N
Text [PathTask] := <Path task variable>
Text [BuffersTask] := <Buffrs task variable>
Text [FilesTask] := <Files task variable>
Text [BackgroundCharacter] := B0
Text [ScreenColors] := WhiteOnRed
Text [YesNo] := Y
Text [GoodDestination] := N
Text [Configure] := N
EndDefineVariables
;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
;;
;; START OF PROGRAM
;;
;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
If [InquireAboutSystemFileLocation] = NoCharacter
If DriveIsPresent [BootDrive] ;; if not, COMSPEC has been changed
NoSysFileConfirmation
EndIf
EndIf
SetReplacementInquiry Off
Do SetupInstalit ;; setup screen etc...
Do PrepareSystemReport ;; make sure we can do this...
ClearScreen
Do EscapeMessage
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; check for adequate resources
If [InsufficientSystem] = YesCharacter
Dialog [YesOrNo1] WhiteOnRed ;; Insufficient system notice
Analysis of your system has determined that it does
not have sufficient resources to install and use
[ProductName]. For a complete list of your system's
resources, press YesCharacter.
Do you wish to continue anyway?
EndDialog
If [YesOrNo1] = NoCharacter
Do ExitInstallation
Else
Do ShowSystemSummary
EndIf
EndIf
Do EscapeMessage
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; determine installation drive, unless we've been here before
;; indicate drives without sufficient disk space or cdrom drives
If [Installed] = YesCharacter
Else
Do DetermineDirectory
Do CheckDestination
Logging On ;; Creates a log of files dealt with
EndIf
Do EscapeMessage
QueFiles ;; prepare files for installation
*.exe
*.dbf
*.dat
*.dll
*.hlp
*.imp
*.001
EndQueFiles
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; extract the files and put them on the target drive
CopyFiles
readme.txt
retrieve.exe
cbreport.bat
EndCopyFiles
GetQuedFiles [ExtractionOptions]
[Installed] := YesCharacter
If QueSize > 0 ;; Some files were selected but not installed if QueSize > 0
[Installed] := NoCharacter
UnqueAllFiles ;; Remove uninstalled files from que
Dialog ;; Message when unable to get all necessary files
Unable to install all of the files.
EndDialog
EndIf
;;;;;;;;;;;;;;;
Do ExitInstallation ;; Exit
;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
;;
;; END OF PROGRAM
;;
;;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure ShowHelpInfo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Dialog PressAKey [SpecialPopupColors] ;; How to reach technical support
For assistance, dial (707) 523-0467 and ask for
Technical Support. You are installing
[ProductName].
You can get a summary of your computer system
by pressing YesCharacter. This information will be
important should you call Customer Service.
EndDialog
If [YesOrNo1] = YesCharacter
Do ShowSystemSummary
EndIf
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure ShowSystemSummary ;; System summary - change with care.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Dialog PressAKey [SpecialPopupColors]
.cHERE IS A SUMMARY OF YOUR SYSTEM
.c[String8] ;; notes whether any incompatibilities were found
Operating System Version: [OSVersionSummary]
CPU Type: [CPUTypeSummary]
Display Adapter: [DisplayAdapterSummary]
Math Coprocessor: [MathCoprocessorStatus]
Main Memory Present: [SystemMemorySummary]
Extended Memory Present: ExtendedMemoryPresentK
Installation Drive: [InstallationDriveSummary]
Network: [NetworkActive]
[String9] ;; information about network suitability
EndDialog
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure PrepareSystemReport
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[InsufficientSystem] := NoCharacter
If OS2 ;; Don't check if OS/2
Else ;; It reads as version 2.1
If OSVersion < [MinimumOSVersion]
[OSVersionSummary] := OSVersion (need at least [MinimumOSVersion])
[InsufficientSystem] := YesCharacter
Else
[OSVersionSummary] := OSVersion
EndIf
EndIf
If MainMemory < [MinimumSystemMemoryRequiredPresent]
[SystemMemorySummary] := MainMemoryK (need at least [MinimumSystemMemoryRequiredPresent]K)
[InsufficientSystem] := YesCharacter
Else
[SystemMemorySummary] := MainMemoryK
EndIf
If ExtendedMemoryPresent < [MinimumExtendedMemoryRequiredPresent]
[ExtendedMemorySummary] := ExtendedMemoryPresentK (need at least [MinimumExtendedMemoryRequiredPresent]K)
[InsufficientSystem] := YesCharacter
Else
[ExtendedMemorySummary] := ExtendedMemoryPresentK
EndIf
If 808X
If [Allow808X] = YesCharacter
[CPUTypeSummary] := 808x
Else
[CPUTypeSummary] := 808x (not compatible with [ProductName])
[InsufficientSystem] := YesCharacter
EndIf
EndIf
If 80286
[CPUTypeSummary] := 80286
EndIf
If 80386
[CPUTypeSummary] := 80386
EndIf
If 80486
[CPUTypeSummary] := 80486
EndIf
If [CPUTypeSummary] = BlankString
[CPUTypeSummary] := 808x
EndIf
If MicroChannel
[CPUTypeSummary] := [CPUTypeSummary] (in MicroChannel Architecture)
Else
[CPUTypeSummary] := [CPUTypeSummary] (ISA or EISA Architecture)
EndIf
If CGA
If [AllowCGA] = YesCharacter
[DisplayAdapterSummary] := CGA
Else
[DisplayAdapterSummary] := CGA (not compatible with [ProductName])
[InsufficientSystem] := YesCharacter
EndIf
EndIf
If MDA
If [AllowMDA] = YesCharacter
[DisplayAdapterSummary] := MDA
Else
[DisplayAdapterSummary] := MDA (not compatible with [ProductName])
[InsufficientSystem] := YesCharacter
EndIf
EndIf
If EGA
[DisplayAdapterSummary] := EGA
EndIf
If VGA
[DisplayAdapterSummary] := VGA
EndIf
If HGC
[DisplayAdapterSummary] := HGC
EndIf
If HGCPlus
[DisplayAdapterSummary] := HGC Plus
EndIf
If Network
[NetworkActive] := Network Active
Else
[NetworkActive] := No Network Active
EndIf
If NovellLoaded
[NetworkActive] := Novell [NetworkActive]
EndIf
If [InstallationDirectory] <> BlankString
[InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
Else
[InstallationDriveSummary] := (Not Selected)
EndIf
If MathCoprocessorPresent
[MathCoprocessorStatus] := Present
Else
If [MathCoprocessorRecommended] = YesCharacter
[MathCoprocessorStatus] := Not Present But Recommended
If [CompatibilityNoticeGiven] = YesCharacter
Else
Dialog ;; Notice if math coprocessor recommended
[ProductName] needs a math coprocessor
for best performance. Your system does not
contain one.
EndDialog
EndIf
Else
[MathCoprocessorStatus] := Not Present
EndIf
EndIf
If WindowsVersion < 3.1
Dialog
Unable to install the [ProductName].
This program requires Windows 3.1 or later.
Press OK to exit the install program.
EndDialog
Do ExitInstallation
Else
Endif
If [InsufficientSystem] = YesCharacter
[String8] := (Please note the listed incompatibilities)
EndIf
If [NetworkInstallation] contains DisallowNetwork
[String9] := " (You cannot install this version on a network drive)"
EndIf
[CompatibilityNoticeGiven] := YesCharacter
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure ExitInstallation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ClearScreen
Do EscapeMessage
;;;;;;;;;;;;;;;;;;;;;;;;
DeleteFiles from ShadowDirectory ;; remove bitmaps
CB40INST.BMP
EndDeleteFiles
;;;;;;;;;;;;;;;;;;;;;;;;
If [Installed] = YesCharacter
[YesNo] := N ;; initialize YesNo to No - don't check
[Configure] := Y
Dialog [YesNo] 1
.cEven though you most likely have the correct FILES setting
in your CONFIG.SYS file, UPDATE can check the setting if you
wish. UPDATE will then change the setting, if necessary.
Y = Yes, have UPDATE check the setting
N = No, don't bother
EndDialog
Do CheckYesNo
If [YesNo] = Y
[Number1] := [MinimumFilesSetting]
If [Number1] <> 0
ModifyConfigSys Quietly NoInquiry
SetFilesToAtLeast [MinimumFilesSetting]
EndModifyConfigSys
If ConfigSysModified
Dialog
.cThe Files= setting has been increased to 40 in order to
properly run Micro Cookbook. You must reboot your system
for this change to take effect.
EndDialog
EndIf
EndIf
EndIf
NoSysFileConfirmation ;; since already inquired once
;;;;;;;;;;;;;;;;;;;;;
ChangeDirectoryTo [InstallationDirectory]
;;;;;;;;;;;;;;;;;;;;;
If FileExists [InstallationDirectory]\*.cdx ;; Delete .cdx
DeleteFiles from [InstallationDirectory] Quietly ;; Files if they exist
*.cdx
EndDeleteFiles
EndIf
If FileExists [InstallationDirectory]\*.ia ;; Delete .ia
DeleteFiles from [InstallationDirectory] Quietly ;; Files if they exist
*.ia
EndDeleteFiles
EndIf
If FileExists [InstallationDirectory]\cb4012.* ;; Don't need CB4012 now
If FileExists [InstallationDirectory]\cb40.hlp
DeleteFiles from [InstallationDirectory] Quietly
cb4012.*
EndDeleteFiles
EndIf
EndIf
If FileExists [InstallationDirectory]\cb40.chk ;; Delete cb40.chk
DeleteFiles from [InstallationDirectory] Quietly ;; File if it exists
cb40.chk
EndDeleteFiles
EndIf
If FileExists [InstallationDirectory]\cb4.chk ;; Delete cb4.chk
DeleteFiles from [InstallationDirectory] Quietly ;; File if it exists
cb4.chk
EndDeleteFiles
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Run RETRIEVE.EXE to get records marked for deletion
OSCommand RETRIEVE.EXE
If [ReadmeFileName] <> BlankString
If FileExists [ReadmeFileName]
If EnhancedMode .AND. ExtendedMemoryPresent >2000
Else
Dialog
.cYour current memory configuration may require you to run Windows
in Enhanced Mode. Instructions follow in the Readme file.
EndDialog
EndIf
BrowseFile [ReadmeFileName]
Else
If EnhancedMode .AND. ExtendedMemoryPresent >2000
Else
Dialog
.cYour current memory configuration may require you to run Windows
in Enhanced Mode. Follow the instructions in your Windows User's Guide.
EndDialog
EndIf
Popup Sorry, readme file [ReadMeFileName] is missing.
EndIf
EndIf
Do EscapeMessage
If [GoodDestination] = N
Dialog
.cUpdate installation successful!
To run [ProductName] double click on the cookbook icon
in the Micro Cookbook Group Window.
The first time Micro Cookbook is started it must create several
files. This may take from 3 - 10 minutes depending on your
system...
But please be aware that some files may be missing from
[InstallationDirectory] that will cause the program to
fail upon launch.
EndDialog
EndIf
If [GoodDestination] = Y
Dialog
.cPartial installation successful!
To run [ProductName] double click on the cookbook icon
in the Micro Cookbook Group Window.
The first time Micro Cookbook is started it must create several
files. This may take from 3 - 10 minutes depending on your
system...
EndDialog
EndIf
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SoLong Quietly
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure SetupInstalit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SetDefaultBitmap Off
SetBackdrop On
SetCoordinatesTo 80x25
SetScreenAttrTo [ScreenColors]
SetBackgroundCharTo [BackgroundCharacter]
Do PrepareSystemReport
If [UseShadows] = YesCharacter
SetShadows On
Else
SetShadows Off
EndIf
If [InquireAboutSystemFileLocation] = NoCharacter
NoSysFileConfirmation
EndIf
SetMainBorderTo [MainBorder]
SetPopupBorderTo [PopupBorder]
SetModifyModeTo [ModifyMode]
SetShadowAttrTo DarkGrayOnBlack
SetScreenAttrTo [ScreenColors]
SetPopupAttrTo [PopupColors]
SetAttentionAttrTo [AttentionColors]
SetTopLineTo [TopLine]
;;;;;;;;;;;;;;;;;
;;Load our bitmap
QueFiles to ShadowDirectory
CB40INST.BMP
EndQueFiles
GetQuedFiles Quietly
LoadBitMap 1 ShadowDirectory\CB40INST.BMP @xy(2,1)
ShowWindow Maximize
ShowBitMap 1
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure EscapeMessage
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TextBox @xy(15,22)
You may press the Esc key at any time to abort the installation.
EndTextBox
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure DetermineDirectory
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DetermineInstallationDrive 3000000 RequireFixed ShowDrivesWithSpace [NetWorkInstallation] BernoulliAsFixed
[InstallationDirectory] := InstallationDrive:\[DefaultInstallationDirectory]
DetermineInstallationDirectory 3000000 RequireFixed BernoulliAsFixed
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure CheckDestination
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If FileExists [InstallationDirectory]\CB400?.DBF
[GoodDestination] := Y
Else
While [GoodDestination] = N
Dialog [YesNo] 1
.c[InstallationDirectory] does not contain
a complete installation of Micro Cookbook.
Do you want to install in a different
directory? Y = Yes, install in a different directory
N = No, this is where I want to install
If necessary, call Technical Support for
assistance.
EndDialog
Do CheckYesNo
If [YesNo] = Y
Do DetermineDirectory
If FileExists [InstallationDirectory]\CB400?.DBF
[GoodDestination] := Y
EndIf
EndIf
If [YesNo] = N
Exit
EndIf
EndWhile
EndIf
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure CheckYesNo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While [YesNo] <> Y
If [YesNo] = N
Exit
EndIf
If [Configure] = N
Dialog [YesNo] 1
.c[InstallationDirectory] does not contain
a complete installation of Micro Cookbook.
Do you want to install in a different
directory? Y = Yes, install in a different directory
N = No, this is where I want to install
If necessary, call Technical Support for
assistance.
EndDialog
Else ;; if Configure = Y
[YesNo] := N ;; initialize YesNo to No - don't check
Dialog [YesNo] 1
.cEven though you most likely have the correct FILES setting
in your CONFIG.SYS file, UPDATE can check the setting if you
wish. Y = Yes, have UPDATE check the setting
N = No, don't bother
EndDialog
EndIf
EndWhile
EndProcedure